/[abc]/ # 匹配 a、b、c 中的任意一个字符
/[a-z]/ # 匹配小写字母 a 到 z 中的任意一个字符
/[^abc]/ # 匹配除了 a、b、c 之外的任意一个字符
/\d/ # 数字字符，等效于 [0-9]
/\w/ # 单词字符，包括字母、数字和下划线，等效于 [a-zA-Z0-9_]
/\s/ # 空白字符，包括空格、制表符和换行符

/abc?/ # 匹配 ab 或 abc，? 表示前面的字符可以出现 0 次或 1 次，等价于 {0,1}
/abc*/ # 匹配 ab、abc、abcc、abccc......，* 表示前面的字符可以出现 0 次或多次，等价于 {0,}
/abc+/ # 匹配 abc、abcc、abccc......，+ 表示前面的字符可以出现 1 次或多次，等价于 {1,}
/abc{2}/ # 匹配 abcc，{2} 表示前面的字符必须出现 2 次
/abc{2,5}/ # 匹配 abcc、abccc、abcccc、abccccc，{2,5} 表示前面的字符可以出现 2 到 5 次
/abc{2,}/ # 匹配 abcc、abccc、abcccc、abccccc......，{2,} 表示前面的字符可以出现 2 次或多次

/^abc/ # 匹配以 abc 开头的字符串
/abc$/ # 匹配以 abc 结尾的字符串
/\babc/ # 匹配以 abc 开头的单词
/abc\b/ # 匹配以 abc 结尾的单词

/(ab)+/ # 匹配 ab、abab、ababab......
/(ab|cd)/ # 匹配 ab 或 cd
/(a(bc)+)/ # 匹配 abc、abcbc、abcbcbc......

/abc.+/ # 贪婪匹配，将匹配到字符串的最后一个 abc
/abc.+?/ # 非贪婪匹配，将匹配到字符串的第一个 abc

my str = "hello world";
if (str =~ /world/) {
    print "Matched\n";
}

my pattern = qr/world/;
if (str =~ m/$pattern/) {
    print "Matched\n";
}

my str = "hello world";str =~ s/world/perl/;
print $str; # 输出 hello perl

my str = "hello,world,perl";
my @arr = split /,/,str;
print join(" ", @arr); # 输出 hello world perl

my @arr = ("hello", "world", "perl");
my @matched = grep(/l/, @arr); # 匹配包含 l 的元素
my @result = map(uc, @arr); # 将元素转换为大写字母

my str = "hello world";
if (str =~ /(\w+)\s+(\w+)/) {
    my first =1;
    my second =2;
    print "firstsecond\n"; # 输出 hello world
}